home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / ge.extra info (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  534b  |  23 lines
  1. 100 poke53280,0:poke53281,0
  2. 110 sp$="                    "
  3. 120 print"[147][208]rint to ([211][146])creen or ([208][146])rinter:"
  4. 130 gosub 1000:if k$="s" then 300
  5. 200 open 4,4,7
  6. 210 print"[196]ouble [204]ine [211]pacing ?"
  7. 220 gosub 1000:if k$="y" then l=1
  8. 230 print"[196]ouble [215]idth ?"
  9. 240 gosub 1000:if k$="y" then w=1:print#4,chr$(14);
  10. 250 print"[147][208]rinting...":goto 310
  11. 300 open 4,3:print"[147][208]ress a [203]ey to [208]ause....";:w=1
  12. 310 open 2,8,2,"ge.info,s,r"
  13. 320 get#2,c$:if st>63 then 380
  14. 330 print#4,c$;
  15. 340 if c$=chr$(13) and l then print#4
  16. 350 if c$=chr$(13) and w=0 then print#4,sp$;
  17. 360 if peek(197)<>64 then 360
  18. 370 goto 320
  19. 380 close 2:close 4
  20. 390 end
  21. 1000 get k$:if k$="" then 1000
  22. 1010 return
  23.